home *** CD-ROM | disk | FTP | other *** search
/ Catch Me If You Can Press Kit / Catch Me if You Can Press Kit.iso / mac / Catch Me If You Can.dxr / scripts_63_ProNotes checkbox script.ls < prev    next >
Encoding:
Text File  |  2002-11-21  |  957 b   |  40 lines
  1. property spriteNum, mySprite, myThumb, myMemberNum
  2. global ProNoteDL
  3.  
  4. on beginSprite me
  5.   mySprite = sprite(spriteNum)
  6.   myThumb = sprite(spriteNum - 1).member.name
  7.   myMemberNum = mySprite.member.number
  8.   if ProNoteDL.getPos(myThumb) <> 0 then
  9.     mySprite.member = member(myMemberNum + 1)
  10.   end if
  11. end
  12.  
  13. on mouseUp me
  14.   myName = mySprite.member.name
  15.   myMemberNum = mySprite.member.number
  16.   if myName contains "0" then
  17.     mySprite.member = member(myMemberNum + 1)
  18.     append(ProNoteDL, myThumb)
  19.   else
  20.     mySprite.member = member(myMemberNum - 1)
  21.     deleteOne(ProNoteDL, myThumb)
  22.   end if
  23. end
  24.  
  25. on resetCheckbox me
  26.   myMemberNum = mySprite.member.number
  27.   myName = mySprite.member.name
  28.   if not (myName contains "0") then
  29.     mySprite.member = member(myMemberNum - 1)
  30.   end if
  31. end
  32.  
  33. on hilite me
  34.   myMemberNum = mySprite.member.number
  35.   myName = mySprite.member.name
  36.   if myName contains "0" then
  37.     mySprite.member = member(myMemberNum + 1)
  38.   end if
  39. end
  40.